MsgBox "test COMCardmanager"
dim card
'set card = createobject("COMCardmanager.Card")
set excel = createobject("Excel.application")
excel.visible = true

